home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_87016.txt < prev    next >
Text File  |  1990-08-14  |  2KB  |  111 lines

  1. -- card: 87016 from stack: in
  2. -- bmap block id: 87562
  3. -- flags: 4000
  4. -- background id: 69011
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   put the long date into card field "Date"
  9. end openCard
  10.  
  11.  
  12. -- part 1 (button)
  13. -- low flags: 00
  14. -- high flags: 0000
  15. -- rect: left=0 top=0 right=342 bottom=512
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 1
  19. -- font id: 0
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: 
  24.  
  25.  
  26. -- part 2 (button)
  27. -- low flags: 00
  28. -- high flags: 0000
  29. -- rect: left=151 top=322 right=336 bottom=177
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 1
  33. -- font id: 0
  34. -- text size: 12
  35. -- style flags: 0
  36. -- line height: 16
  37. -- part name: Scroll left
  38. ----- HyperTalk script -----
  39. on mouseUp
  40.   lock screen
  41.   go prev
  42.   unlock screen
  43. end mouseUp
  44.  
  45.  
  46.  
  47. -- part 3 (button)
  48. -- low flags: 00
  49. -- high flags: 0000
  50. -- rect: left=193 top=322 right=336 bottom=219
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 1
  54. -- font id: 0
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: Scroll right
  59. ----- HyperTalk script -----
  60. on mouseUp
  61.   lock screen
  62.   go next
  63.   unlock screen
  64. end mouseUp
  65.  
  66.  
  67.  
  68. -- part 4 (button)
  69. -- low flags: 00
  70. -- high flags: 0000
  71. -- rect: left=11 top=23 right=38 bottom=26
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 5068 / 5068
  74. -- text alignment: 1
  75. -- font id: 0
  76. -- text size: 12
  77. -- style flags: 0
  78. -- line height: 16
  79. -- part name: Close
  80. ----- HyperTalk script -----
  81. on mouseDown
  82.   set icon of me to "Close Box Hi"
  83. end mouseDown
  84.  
  85. on mouseLeave
  86.   set icon of me to "Close Box"
  87. end mouseLeave
  88.  
  89. on mouseUp
  90.   set icon of me to "Close Box"
  91.   pop card
  92. end mouseUp
  93.  
  94.  
  95. -- part 5 (field)
  96. -- low flags: 01
  97. -- high flags: 0000
  98. -- rect: left=349 top=45 right=58 bottom=491
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 0
  102. -- font id: 3
  103. -- text size: 9
  104. -- style flags: 0
  105. -- line height: 12
  106. -- part name: Date
  107.  
  108.  
  109. -- part contents for card part 5
  110. ----- text -----
  111. Monday, September 4, 1989